﻿Public Class Form1
  Private Sub Form1_Click(ByVal sender _
          As Object, _
          ByVal e As System.EventArgs) _
          Handles Me.Click
    Dim icona As _
        New Icon("C:\VB2010\Cap17\17.05\PostIt.ico")
    Me.Icon = icona
  End Sub
End Class
